<%

Function usuario_nome_tabela()

	DIM tabela
		
	tabela = "mes_"&get_data_formatada("A_M")

	IF usuario_nome_tabela_existe(tabela) = False then usuario_nome_tabela_criar tabela
	
	usuario_nome_tabela = tabela

End Function

Function usuario_nome_tabela_existe(tabela)
	
				DIM rsR
				
				str = "SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '"&tabela&"'"
				Set rsR = conexao_registros.Execute(str)	
				
				If rsR.eof then 
				
					usuario_nome_tabela_existe = false
					
				Else
				
					usuario_nome_tabela_existe = true
				
				End If	


End Function

Function usuario_nome_tabela_criar(tabela)
	
				str = "CREATE TABLE IF NOT EXISTS "&tabela&" ("
				str = str &  "  id_usuario int(11) NOT NULL,"
				str = str &  "  data datetime NOT NULL,"
				str = str &  "  sigla varchar(2) NOT NULL,"
				str = str &  "  texto varchar(255) NOT NULL"
				str = str &  ") ENGINE=InnoDB DEFAULT CHARSET=utf8;"
				Set rsI = conexao_registros.Execute(str)


End Function

Function usuario_registro_gravar(id_usuario, texto)
	
	DIM data
	
	data = get_data()
	
	usuario_registro_gravar_data id_usuario, texto, data 


End Function

Function usuario_registro_gravar_data(id_usuario, texto, data)
	
	DIM tabela
	
	tabela = usuario_nome_tabela()
	
	usuario_registro_gravar_texto id_usuario, data, texto, tabela


End Function

Function usuario_registro_gravar_texto(id_usuario, data, texto, tabela)
	
				DIM sigla, tam
				
				sigla = left(texto,1)
				
				tam = len(texto)
				
				If tam>2 then
					texto = Right(texto,tam-2)
				else
					texto=""
				End If
	
				str = "INSERT into "&tabela&" "
				str = str & "(id_usuario, data, sigla, texto) "
				str = str & "VALUES ('" & id_usuario & "', "
				str = str & "'" & data & "', "		
				str = str & "'" & sigla & "', "		
				str = str & "'" & texto & "')"						
				Set rsI = conexao_registros.Execute(str)


End Function

Function usuario_carregar_logs(id, tempo, logs)

		DIM total, data_atual, primeira_data, diff, data
		DIM primeiro_mes, ultimo_mes, primeiro_ano, ultimo_ano
		
		data_atual = get_data()
		
		ultimo_mes = data_formatada(data_atual, "M")
		ultimo_ano = data_formatada(data_atual, "A")
		
		primeira_data = data_pt_en(adicionar_datas(data_atual, (tempo*-1), "d"))
		
		primeiro_mes = data_formatada(primeira_data, "M")
		primeiro_ano = data_formatada(primeira_data, "A")
		
		DIM i, mes, ano, tabela, flag
		
		total = 0
		
		ano = primeiro_ano
		mes = primeiro_mes - 1
		
		flag = false

		For i=(primeiro_mes+primeiro_ano*12) to (ultimo_mes+ultimo_ano*12)

			mes=mes+1

			If mes>12 then
				mes = 1
				ano = ano+1
			End If
			
			tabela = "mes_"&ano&"_"&completar_zeros(mes, 2) 

			IF usuario_nome_tabela_existe(tabela) = true then
			
				str = "SELECT data, sigla, texto FROM "&tabela&" WHERE id_usuario="&id&" ORDER BY data asc"
				Set rsTR = conexao_registros.Execute(str)	

				Do while not rsTR.eof
				
					data = data_pt_en(rsTR("data"))
					
					If flag=false then
					
						If diferenca_datas(primeira_data, data, "d") >= 0 then 
							flag=true
						End If
						
					End If
					
					If flag=true then

						logs(total,0) = data
						logs(total,1) = rsTR("sigla")
						logs(total,2) = rsTR("texto")
						
						total=total+1
					
					End If
					
				
				rsTR.MoveNext
				Loop
			
			End If	
		
		Next
		
		
		usuario_carregar_logs = total

End Function

%>